{$CLEO .CS}

//-------------MAIN---------------
thread 'SIT8'
0ACD: "aim some actor and shot" 1000
:BURN_1416tx
wait 0 
if 
   Player.Defined($PLAYER_CHAR)
jf @BURN_1416tx 
if 
   not Actor.Driving($PLAYER_ACTOR)
jf @BURN_1416tx 
if 
00E1:   player 0 pressed_key 6 
jf @BURN_1416tx 
if 
0AD2: 17@ = player $PLAYER_CHAR targeted_actor //IF and SET 
jf @BURN_1416tx 
if 
   not Actor.Dead(17@)
jf @BURN_1540tx 
if 
02E0:   actor $PLAYER_ACTOR firing_weapon 
jf @BURN_1416tx 
wait 0
04C4: store_coords_to 1@ 2@ 3@ from_actor 17@ with_offset 0.0 0.0 1.0 
0948: create_explosion_at 1@ 2@ 3@ type 11 camera_shake 0.1
:BURN_1540tx
jump @BURN_1416tx